home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…rary 6 (Reseller Edition) / Apple Ref. & Pres. Lib.v6.0.toast / pc / 3-Presentations / Apple Demos / Training / Apple Scanner Training / Scanner Tech - Works / card_7270.txt < prev    next >
Text File  |  1990-04-02  |  4KB  |  157 lines
  1. -- card: 7270 from stack: in
  2. -- bmap block id: 3736
  3. -- flags: 4000
  4. -- background id: 2601
  5. -- name: Scanner Tech - Works
  6. ----- HyperTalk script -----
  7. on openCard
  8.   hide menuBar
  9.   global showState
  10.   put empty into showState
  11.   set hilite of background button "The System" to false
  12.   set hilite of background button "How It Works" to true
  13.   set hilite of background button "Scan. Concepts" to false
  14.   set hilite of background button "File Formats" to false
  15.   show card field "Select Field"
  16.   show card field "Message Center"
  17.   ResetMenuField
  18. end openCard
  19.  
  20. on closeCard
  21.   hide menuBar
  22.   hide card field "Select Field"
  23.   hide card field "Message Center"
  24. end closeCard
  25.  
  26. on ResetMenuField
  27.   put " Overall Block Diagram" & return & " Optical Mechanism" & return & " Charge Coupled Device" & return & " Main Logic Board" & return & " Power Supply" & return into card field "Select Field"
  28. end ResetMenuField
  29.  
  30.  
  31.  
  32. -- part 54 (field)
  33. -- low flags: 81
  34. -- high flags: 2004
  35. -- rect: left=25 top=91 right=182 bottom=201
  36. -- title width / last selected line: 0
  37. -- icon id / first selected line: 0 / 0
  38. -- text alignment: 0
  39. -- font id: 3
  40. -- text size: 12
  41. -- style flags: 0
  42. -- line height: 16
  43. -- part name: Select Field
  44. ----- HyperTalk script -----
  45. on mouseUp
  46.   global whichExample,showState
  47.   put empty into whichExample
  48.   put empty into showState
  49.   put 1 + (the clickV - top of me) div textHeight of me into clickLine
  50.   if line clickLine of me is not empty then
  51.     put word 1 of line clickLine of card field "Select Field" into whichExample
  52.     put "‚Ä¢" into char 1 of line clickLine of card field "Select Field"
  53.     push card
  54.     visual dissolve to card
  55.     go to card whichExample
  56.   end if
  57. end mouseUp
  58.  
  59. on ResetMenuField
  60.   put " Overall Block Diagram" & return & " Optical Mechanism" & return & " Charge Coupled Device" & return & " Main Logic Board" & return & " Power Supply" & return into card field "Select Field"
  61. end ResetMenuField
  62.  
  63.  
  64.  
  65.  
  66. -- part 55 (field)
  67. -- low flags: 81
  68. -- high flags: 0000
  69. -- rect: left=32 top=231 right=262 bottom=195
  70. -- title width / last selected line: 0
  71. -- icon id / first selected line: 0 / 0
  72. -- text alignment: 0
  73. -- font id: 3
  74. -- text size: 9
  75. -- style flags: 0
  76. -- line height: 12
  77. -- part name: Message Center
  78.  
  79.  
  80. -- part 56 (button)
  81. -- low flags: 00
  82. -- high flags: 0000
  83. -- rect: left=451 top=3 right=42 bottom=491
  84. -- title width / last selected line: 0
  85. -- icon id / first selected line: 1004 / 1004
  86. -- text alignment: 1
  87. -- font id: 0
  88. -- text size: 12
  89. -- style flags: 0
  90. -- line height: 16
  91. -- part name: 
  92. ----- HyperTalk script -----
  93. on mouseUp
  94.   play harpsichord a4
  95.   global search
  96.   answer "Type of Search?" with "Browse" or "Automatic" or "Cancel"
  97.   if it is "Browse" then
  98.     visual wipe up slowly
  99.     go to card "Glossary" of stack "Glossary"
  100.   end if
  101.   if it is "Automatic" then
  102.     ask "Find Word?"
  103.     put it into search
  104.     if search is empty then
  105.       exit mouseUp
  106.     else
  107.       visual wipe up slowly
  108.       put "find search" into message box
  109.       hide message
  110.       go to card "Glossary" of stack "Glossary"
  111.       find word search in field "Text"
  112.       if the result is "not found" then
  113.         answer "Word not found." with "OK"
  114.         exit mouseUp
  115.       else
  116.         show card field id 13
  117.         wait 4 seconds
  118.         hide card field id 13
  119.       end if
  120.     end if
  121.   end if
  122. end mouseUp
  123.  
  124.  
  125. -- part 57 (button)
  126. -- low flags: 00
  127. -- high flags: 0000
  128. -- rect: left=402 top=3 right=42 bottom=438
  129. -- title width / last selected line: 0
  130. -- icon id / first selected line: 1008 / 1008
  131. -- text alignment: 1
  132. -- font id: 0
  133. -- text size: 12
  134. -- style flags: 0
  135. -- line height: 16
  136. -- part name: 
  137. ----- HyperTalk script -----
  138. on mouseUp
  139.   doMenu "Print Card"
  140. end  mouseUp
  141.  
  142.  
  143.  
  144.  
  145.  
  146. -- part contents for card part 54
  147. ----- text -----
  148.  Overall Block Diagram
  149.  Optical Mechanism
  150.  Charge Coupled Device
  151.  Main Logic Board
  152.  Power Supply
  153.  
  154.  
  155. -- part contents for card part 55
  156. ----- text -----
  157. Please click on a topic in the box above to select system items.